home *** CD-ROM | disk | FTP | other *** search
/ iBrowse Update Disc / iBrowse Update Disc.iso / distrib / boot / !Boot / Resources / !Internet / utils / BootNet next >
Text File  |  1996-11-27  |  2KB  |  49 lines
  1. |================================================================|
  2. | Simple AUN BootNet - used only for softloading AUN onto a      |
  3. | standard AUN station.                                          |
  4. |                                                                |
  5. | Only for use of InetSetup-generated startup scripts.           |
  6. |                                                                |
  7. | Copyright (C) Acorn Computers Ltd., 1996                       |
  8. |=================================================================
  9. IF "<Inet$HostName>" <> "" AND "<Inet$HostName>" <> "ARM_NoName" THEN Error BootNet should not be run after !Internet. Use InetSetup to configure AUN + TCP/IP.
  10. IF "<Wimp$State>" = "desktop" THEN Error BootNet should only be run outside the desktop
  11. Set Alias$RMIfThere SetEval Test$Eval 1|MRMEnsure %%1 0 SetEval Test$Eval 0|MIf Test$Eval THEN %%0 %%1|MUnset Test$Eval
  12. |
  13. | Check for RISC OS 3.10 or later
  14. |
  15. RMEnsure UtilityModule 3.10 Error This AUN BootNet requires RISC OS 3 (v3.10) or later
  16. Set System$Path_Message System resources not found. Please run !System before !BootNet
  17. IF "<System$Path>" = "" THEN IfThere Boot:Resources.!System then Run Boot:Resources.!System
  18. |
  19. | Boot !Internet
  20. |
  21. Run <Obey$Dir>.^.!Boot
  22. |
  23. | Required to get Net to load
  24. |
  25. Set BootNet$File Net
  26. |
  27. | Load Net
  28. |
  29. RMEnsure Net 6.17 RMLoad System:Modules.Network.Net
  30. RMEnsure Net 6.17 Error you need Net 6.17 or later to use AUN
  31. |
  32. | Load a device driver, if required
  33. |
  34. IF "<Net$Device>" <> "" THEN Run System:Modules.Network.<Net$Device>
  35. |
  36. | If necessary, restart Access
  37. |
  38. RMIfThere RMReInit ShareFS
  39. |
  40. | Start up NetFS, etc.
  41. |
  42. RMEnsure NetFS 0 RMReInit NetFS
  43. RMEnsure NetFS 5.79 RMEnsure NetUtils 0.99 Run System:Modules.Network.NetUtils
  44. RMEnsure NetPrint 0 RMReInit NetPrint
  45. RMEnsure NetFiler 0 RMReInit NetFiler
  46.  
  47. Unset Inet$Restart
  48. Unset Alias$RMIfThere
  49.